home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / AboveBelow.dxr / Internal_3_center cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.0 KB  |  68 lines
  1. property spriteNum, undercard, motion, location
  2. global basecard, reserve, equal, currentsel, getlist, godlist
  3.  
  4. on beginSprite me
  5.   reserve = new(script("card pile"))
  6.   sprite(spriteNum).member = member(random(44) + 4, "playing cards")
  7.   basecard = new(script("card"), spriteNum)
  8.   undercard = sprite(37)
  9.   location = sprite(spriteNum).loc
  10. end
  11.  
  12. on mouseDown me
  13.   if reserve.getcardcount() > 0 then
  14.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  15.     sprite(spriteNum).locZ = spriteNum + 1000
  16.     getlist = reserve
  17.     motion = timeout(string(spriteNum) && "motion").new(5, #moving, me)
  18.     if reserve.getcardcount() > 1 then
  19.       undercard.member = member(reserve.cards[reserve.getcardcount() - 1].membername, "playing cards")
  20.     else
  21.       if reserve.getcardcount() <= 1 then
  22.         undercard.member = member(basecard.membername, "playing cards")
  23.       end if
  24.     end if
  25.   end if
  26. end
  27.  
  28. on moving me
  29.   if the mouseDown then
  30.     sprite(spriteNum).loc = the mouseLoc
  31.   else
  32.     if the mouseUp then
  33.       sprite(spriteNum).locZ = spriteNum
  34.       motion.forget()
  35.       abort()
  36.     end if
  37.   end if
  38. end
  39.  
  40. on mouseUp me
  41.   if equal then
  42.     puppetSound(3, member("pick card", "100GPak Generic SFX"))
  43.     sprite(currentsel).member = member(sprite(spriteNum).member.name, "playing cards")
  44.     if reserve.getcardcount() > 1 then
  45.       sprite(spriteNum).member = member(reserve.cards[reserve.getcardcount() - 1].membername, "playing cards")
  46.     else
  47.       if reserve.getcardcount() = 1 then
  48.         sprite(spriteNum).member = member(basecard.membername, "playing cards")
  49.       end if
  50.     end if
  51.     godlist.addCard(currentsel)
  52.     sprite(spriteNum).loc = location
  53.     reserve.cards.deleteOne(reserve.getlastcard())
  54.     points = points + 10
  55.     equal = 0
  56.     currentsel = 0
  57.     godlist = VOID
  58.     getlist = VOID
  59.     checkwin()
  60.   else
  61.     if not equal then
  62.       puppetSound(3, member("drop card", "100GPak Generic SFX"))
  63.       getlist = VOID
  64.       sprite(spriteNum).loc = location
  65.     end if
  66.   end if
  67. end
  68.